(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     18278,        503]
NotebookOptionsPosition[     17944,        487]
NotebookOutlinePosition[     18288,        502]
CellTagsIndexPosition[     18245,        499]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Protect", "[", 
    RowBox[{
    "A", ",", "b", ",", "c", ",", "f", ",", "s", ",", "n", ",", "\[Psi]", ",",
      "\[CurlyPhi]"}], "]"}], ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NR", "=", "SetPrecision"}], ";"}], "\n"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"DomainOptimizedSF", "[", 
    RowBox[{"s_Integer", ",", "\[Alpha]_", ",", 
     RowBox[{"Nacc_:", " ", "60"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "int", ",", "int0", ",", "INT", ",", "param", ",", "\[Rho]", ",", "m", 
       ",", "n", ",", "i", ",", "j", ",", "nA", ",", "nb", ",", "a", ",", "p",
        ",", "k", ",", "A", ",", "b"}], "}"}], ",", 
     RowBox[{
      RowBox[{"p", "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"int", "=", 
       RowBox[{"Integrate", "[", 
        RowBox[{
         RowBox[{"p", " ", 
          RowBox[{"\[Rho]", "^", "n"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"m", " ", "\[CurlyPhi]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[CurlyPhi]", ",", 
           RowBox[{"\[Pi]", "-", "\[Alpha]"}], ",", 
           RowBox[{"\[Pi]", "+", "\[Alpha]"}]}], "}"}], ",", 
         RowBox[{"Assumptions", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"n", "\[Element]", "Integers"}], ",", 
            RowBox[{"n", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"int0", "=", 
       RowBox[{"Integrate", "[", 
        RowBox[{
         RowBox[{"p", " ", 
          RowBox[{"\[Rho]", "^", "n"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[CurlyPhi]", ",", 
           RowBox[{"\[Pi]", "-", "\[Alpha]"}], ",", 
           RowBox[{"\[Pi]", "+", "\[Alpha]"}]}], "}"}], ",", 
         RowBox[{"Assumptions", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"n", "\[Element]", "Integers"}], ",", 
            RowBox[{"n", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"INT", "[", 
        RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[Equal]", "j"}], ",", 
         RowBox[{"int0", "/.", 
          RowBox[{"{", 
           RowBox[{"n", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{"i", "+", "j"}], ")"}]}], "}"}]}], ",", 
         RowBox[{"int", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"n", "\[Rule]", 
             RowBox[{"i", "+", "j"}]}], ",", 
            RowBox[{"m", "\[Rule]", 
             RowBox[{"i", "-", "j"}]}]}], "}"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"A", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"INT", "[", 
          RowBox[{"i", ",", "j"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "s"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"INT", "[", 
          RowBox[{"i", ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nA", ",", "nb"}], "}"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"NR", "[", 
          RowBox[{"#", ",", "Nacc"}], "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"A", ",", "b"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"a", "=", 
       RowBox[{"LinearSolve", "[", 
        RowBox[{"nA", ",", 
         RowBox[{"-", "nb"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"#", "^", "i"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "s"}], "}"}]}], "]"}], ".", "a"}]}], ")"}], 
        "]"}], "&"}]}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ArcOptimizedSF", "[", 
     RowBox[{"s_Integer", ",", "\[Alpha]_", ",", 
      RowBox[{"Nacc_:", " ", "60"}]}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "int", ",", "INT", ",", "param", ",", "\[Rho]", ",", "m", ",", "n", 
        ",", "i", ",", "j", ",", "nA", ",", "nb", ",", "a", ",", "p", ",", 
        "k"}], "}"}], ",", 
      RowBox[{
       RowBox[{"int", "=", 
        RowBox[{
         RowBox[{"Integrate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Rho]", "^", "m"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", 
              RowBox[{"(", 
               RowBox[{"\[Pi]", "-", "\[Alpha]"}], ")"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}], ",", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"m", "\[Element]", "Integers"}], ",", 
              RowBox[{"n", "\[Element]", "Integers"}], ",", 
              RowBox[{"m", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}], "+", 
         
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"n", "\[Equal]", "0"}], ",", 
           RowBox[{"\[Pi]", "/", "2"}], ",", 
           RowBox[{"Evaluate", "[", 
            RowBox[{"Integrate", "[", 
             RowBox[{
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "\[CurlyPhi]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[CurlyPhi]", ",", 
                RowBox[{"\[Pi]", "-", "\[Alpha]"}], ",", "\[Pi]"}], "}"}], 
              ",", 
              RowBox[{"Assumptions", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"n", "\[Element]", "Integers"}], "}"}]}]}], "]"}], 
            "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"INT", "[", 
         RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
        RowBox[{"int", "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"m", "\[Rule]", 
            RowBox[{"i", "+", "j"}]}], ",", 
           RowBox[{"n", "\[Rule]", 
            RowBox[{"i", "-", "j"}]}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"A", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"INT", "[", 
           RowBox[{"i", ",", "j"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "s"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"b", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"INT", "[", 
           RowBox[{"i", ",", "0"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"nA", ",", "nb"}], "}"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"NR", "[", 
           RowBox[{"#", ",", "Nacc"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{"A", ",", "b"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"a", "=", 
        RowBox[{"LinearSolve", "[", 
         RowBox[{"nA", ",", 
          RowBox[{"-", "nb"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"#", "^", "i"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "s"}], "}"}]}], "]"}], ".", "a"}]}], ")"}], 
         "]"}], "&"}]}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"getCompositeERK", "[", "R_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "roots", ",", "imz", ",", "rez", ",", "LebedevParam", ",", "z", ",", 
       "Rz"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Rz", "=", 
       RowBox[{"R", "[", "z", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Exponent", "[", 
          RowBox[{"Rz", ",", "z"}], "]"}], "\[Equal]", "1"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Return", "[", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"s", "\[Rule]", "1"}], ",", 
             RowBox[{"A", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"{", "}"}], "}"}]}], ",", 
             RowBox[{"b", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"R", "[", "1", "]"}], "-", "1"}], "}"}]}]}], "}"}], 
           "}"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"roots", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"List", "@@", 
          RowBox[{"Roots", "[", 
           RowBox[{
            RowBox[{"Rz", "\[Equal]", "0"}], ",", "z"}], "]"}]}], ")"}], 
        "\[LeftDoubleBracket]", 
        RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"imz", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{"roots", ",", 
            RowBox[{
             RowBox[{"!", 
              RowBox[{"(", 
               RowBox[{"#", "\[Element]", "Reals"}], ")"}]}], "&"}]}], "]"}], 
          "//", "Sort"}], ")"}], "~", "Partition", "~", "2"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"rez", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"roots", ",", 
         RowBox[{
          RowBox[{"#", "\[Element]", "Reals"}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"rez", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"OddQ", "@", 
           RowBox[{"Length", "@", "rez"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Partition", "[", 
          RowBox[{"rez", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Partition", "[", 
           RowBox[{"rez", ",", "2"}], "]"}], "~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"rez", "\[LeftDoubleBracket]", 
            RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "}"}]}]}], 
        "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"LebedevParam", "[", 
        RowBox[{"{", 
         RowBox[{"z1_", ",", "z2_"}], "}"}], "]"}], ":=", 
       RowBox[{"Block", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\[Delta]1", ",", "\[Delta]2", ",", "\[Alpha]", ",", "\[Beta]", ",",
            "\[Gamma]"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Re", "[", "#", "]"}], ",", 
               RowBox[{"Im", "[", "#", "]"}]}], "}"}], "&"}], "[", 
            RowBox[{
             RowBox[{"-", "1"}], "/", "z1"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"s", "\[Rule]", "2"}], ",", 
            RowBox[{"A", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"{", "1", "}"}], "}"}]}], ",", 
            RowBox[{
             RowBox[{"b", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"2", "\[Alpha]"}], "-", 
                 SuperscriptBox["\[Alpha]", "2"], "-", 
                 SuperscriptBox["\[Beta]", "2"]}], ",", 
                RowBox[{
                 SuperscriptBox["\[Alpha]", "2"], "+", 
                 SuperscriptBox["\[Beta]", "2"]}]}], "}"}]}], "//", 
             "Simplify"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"LebedevParam", "[", "z_", "]"}], ":=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"s", "\[Rule]", "1"}], ",", 
         RowBox[{"A", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"{", "}"}], "}"}]}], ",", 
         RowBox[{"b", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"-", 
            FractionBox["1", "z"]}], "}"}]}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"LebedevParam", "/@", 
       RowBox[{"(", 
        RowBox[{"imz", "~", "Join", "~", "rez"}], ")"}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"compressERK", "[", "erk_", "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"s", "/.", "erk"}], ")"}], "\[Equal]", "1"}], ",", 
      RowBox[{"b", "/.", "erk"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "/.", "erk"}], ")"}], "\[LeftDoubleBracket]", 
           RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", "b"}], 
         "}"}], "/.", "erk"}], "//", "Flatten"}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"compressCompositeERK", "[", "erks_", "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"compressERK", "/@", "erks"}], ")"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]", "=", "9"}], ";", 
  RowBox[{"(*", 
   RowBox[{
   "\:041e\:0431\:0449\:0435\:0435", " ", 
    "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", 
    "\:0441\:0442\:0430\:0434\:0438\:0439"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Theta]", "=", 
   RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R2", "=", 
   RowBox[{"DomainOptimizedSF", "[", 
    RowBox[{"\[Sigma]", ",", "\[Theta]", ",", "30"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"method", "=", 
  RowBox[{"compressCompositeERK", "@", " ", 
   RowBox[{"getCompositeERK", "[", "R2", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"\:0421\:043f\:0438\:0441\:043e\:043a", " ", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", ",", "\[Beta]1", ",", "\[Beta]2"}], "}"}], " ", 
    "\:0438\:043b\:0438", " ", 
    RowBox[{"{", "\[Gamma]", "}"}], " ", 
    RowBox[{"(", 
     RowBox[{
     "\:0435\:0441\:043b\:0438", " ", "\[Sigma]", " ", 
      "\:043d\:0435\:0447\:0435\:0442\:043d\:043e\:0435"}], ")"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.540311383827756*^9, 3.540311616701073*^9}, {
   3.540311841855412*^9, 3.540311863724093*^9}, 3.540312126248285*^9, {
   3.540313546548384*^9, 3.540313546746951*^9}, 3.540313884464559*^9, {
   3.540313959926615*^9, 3.540313960596239*^9}, {3.540408727527749*^9, 
   3.540408727878863*^9}, {3.540409471521128*^9, 3.540409502991805*^9}, 
   3.540530923664468*^9, {3.540532750779618*^9, 3.540532753843759*^9}, 
   3.543381914365283*^9, {3.5758858969469476`*^9, 3.5758859045095387`*^9}, {
   3.5758859654245386`*^9, 3.575885967265538*^9}, {3.5758859994905386`*^9, 
   3.5758860209225388`*^9}, {3.5758861258425384`*^9, 
   3.5758861950795383`*^9}, {3.5758863168725386`*^9, 
   3.5758863364945383`*^9}, {3.5758864003215384`*^9, 
   3.5758864823765383`*^9}, {3.5758866680025387`*^9, 3.575886681338538*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0.67342069329293108182394372556747517116`24.264388599799574", 
     ",", "1.32308548761909809788353975056114562875`24.792041369049894"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{
     "-", "0.23442940225204638582087366310278463041`23.57873758369683"}], ",",
      "1.53845663234177695524997557408572317335`24.56542528964682"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{
     "-", "0.76825765828449277895698822315918074176`24.226589791665447"}], 
     ",", "1.77755429627930632161608154777818902575`24.731093469585918"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{
     "-", "0.91927920219838012628883665623037451283`25.269297876802586"}], 
     ",", "1.17716663304994243312881451579875698212`25.506818982724294"}], 
    "}"}], ",", 
   RowBox[{
   "{", "1.13030092784294673203686614451170506728`25.72169355785532", "}"}]}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.5758859061275387`*^9, {3.5758859802785387`*^9, 3.5758860220535383`*^9}, 
   3.5758861365075383`*^9, {3.575886171161538*^9, 3.575886196069538*^9}, {
   3.5758863190415382`*^9, 3.5758863376925383`*^9}, {3.5758864044055386`*^9, 
   3.575886426246538*^9}, 3.5758866824935384`*^9}]
}, Open  ]]
},
WindowSize->{640, 655},
WindowMargins->{{286, Automatic}, {Automatic, 48}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 16039, 427, 1289, "Input"],
Cell[16609, 451, 1319, 33, 107, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
